﻿Public Class DMBenh


    Private Sub DMBenh_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'PCV_CLINICDataSet_Don.DMTinhTrang' table. You can move, or remove it, as needed.
        Me.DMTinhTrangTableAdapter.Fill(Me.PCV_CLINICDataSet_Don.DMTinhTrang)
        'TODO: This line of code loads data into the 'PCV_CLINICDataSet_Don.DMBenh' table. You can move, or remove it, as needed.
        Me.DMBenhTableAdapter.Fill(Me.PCV_CLINICDataSet_Don.DMBenh)

    End Sub
    Public Sub New()
        InitializeComponent()
        Me.setObj(Me.PCV_CLINICDataSet_Don, Me.PCV_CLINICDataSet_Don.DMBenh, Me.DMBenhBindingSource, Me.TableAdapterManager, DMBenhTableAdapter, MaITextEdit)
    End Sub

    Private Shadows Sub BarButtonItemBaoCao_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemBaoCao.ItemClick
        Dim report As XtraReportDMBenh = New XtraReportDMBenh
        report.ShowRibbonPreview()
    End Sub
End Class
